home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / WinList.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  379 b   |  18 lines
  1. $var = WinList()
  2.  
  3. For $i = 1 to $var[0][0]
  4.   ; Only display visble windows that have a title
  5.   If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
  6.     MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
  7.   EndIf
  8. Next
  9.  
  10. Func IsVisible($handle)
  11.   If BitAnd( WinGetState($handle), 2 ) Then 
  12.     Return 1
  13.   Else
  14.     Return 0
  15.   EndIf
  16.  
  17. EndFunc
  18.